home *** CD-ROM | disk | FTP | other *** search
/ Storm 2 / Storm II.iso / setup / stormii.vp / STORM.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-08-30  |  1.9 KB  |  145 lines
  1. @echo Off
  2. CLS
  3. type Storm.111
  4. pause
  5. Type Storm.222
  6.  
  7. ASK /E "" ABCDEFGHIJKLMNOPQRSTUVWXYZ
  8. IF ERRORLEVEL 26 GOTO DRIVEZ
  9. IF ERRORLEVEL 25 GOTO DRIVEY
  10. IF ERRORLEVEL 24 GOTO DRIVEX
  11. IF ERRORLEVEL 23 GOTO DRIVEW
  12. IF ERRORLEVEL 22 GOTO DRIVEV
  13. IF ERRORLEVEL 21 GOTO DRIVEU
  14. IF ERRORLEVEL 20 GOTO DRIVET
  15. IF ERRORLEVEL 19 GOTO DRIVES
  16. IF ERRORLEVEL 18 GOTO DRIVER
  17. IF ERRORLEVEL 17 GOTO DRIVFQ
  18. IF ERRORLEVEL 16 GOTO DRIVEP
  19. IF ERRORLEVEL 15 GOTO DRIVEO    
  20. IF ERRORLEVEL 14 GOTO DRIVEN
  21. IF ERRORLEVEL 13 GOTO DRIVEM
  22. IF ERRORLEVEL 12 GOTO DRIVEL
  23. IF ERRORLEVEL 11 GOTO DRIVEK
  24. IF ERRORLEVEL 10 GOTO DRIVEJ
  25. IF ERRORLEVEL 9 GOTO DRIVEI
  26. IF ERRORLEVEL 8 GOTO DRIVEH
  27. IF ERRORLEVEL 7 GOTO DRIVEG
  28. IF ERRORLEVEL 6 GOTO DRIVEF
  29. IF ERRORLEVEL 5 GOTO DRIVEE
  30. IF ERRORLEVEL 4 GOTO DRIVED
  31. IF ERRORLEVEL 3 GOTO DRIVEC
  32. IF ERRORLEVEL 2 GOTO DRIVEB
  33. IF ERRORLEVEL 1 GOTO DRIVEA
  34.  
  35. :DRIVEZ
  36. SET STORMCD=Z:\
  37. GOTO QUIT
  38.  
  39. :DRIVEY
  40. SET STORMCD=Y:\
  41. GOTO QUIT
  42.  
  43. :DRIVEX
  44. SET STORMCD=X:\
  45. GOTO QUIT
  46.  
  47. :DRIVEW
  48. SET STORMCD=W:\
  49. GOTO QUIT
  50.  
  51. :DRIVEV
  52. SET STORMCD=V:\
  53. GOTO QUIT
  54.  
  55. :DRIVEU
  56. SET STORMCD=U:\
  57. GOTO QUIT
  58.  
  59. :DRIVET
  60. SET STORMCD=T:\
  61. GOTO QUIT
  62.  
  63.  
  64. :DRIVES
  65. SET STORMCD=S:\
  66. GOTO QUIT
  67.  
  68. :DRIVER
  69. SET STORMCD=R:\
  70. GOTO QUIT
  71.  
  72. :DRIVEQ
  73. SET STORMCD=Q:\
  74. GOTO QUIT
  75.  
  76. :DRIVEP
  77. SET STORMCD=P:\
  78. GOTO QUIT
  79.  
  80. :DRIVEO
  81. SET STORMCD=O:\
  82. GOTO QUIT
  83.  
  84. :DRIVEN
  85. SET STORMCD=N:\
  86. GOTO QUIT
  87.  
  88. :DRIVEM
  89. SET STORMCD=M:\
  90. GOTO QUIT
  91.  
  92. :DRIVEL
  93. SET STORMCD=L:\
  94. GOTO QUIT
  95.  
  96. :DRIVEK
  97. SET STORMCD=K:\
  98. GOTO QUIT
  99.  
  100. :DRIVEJ
  101. SET STORMCD=J:\
  102. GOTO QUIT
  103.  
  104. :DRIVEI
  105. SET STORMCD=I:\
  106. GOTO QUIT
  107.  
  108. :DRIVEH
  109. SET STORMCD=H:\
  110. GOTO QUIT
  111.  
  112. :DRIVEG
  113. SET STORMCD=G:\
  114. GOTO QUIT
  115.  
  116. :DRIVEF
  117. SET STORMCD=F:\
  118. GOTO QUIT
  119.  
  120. :DRIVEE
  121. SET STORMCD=E:\
  122. GOTO QUIT
  123.  
  124. :DRIVED
  125. SET STORMCD=D:\
  126. GOTO QUIT
  127.  
  128. :DRIVEC
  129. SET STORMCD=C:\
  130. GOTO QUIT
  131.  
  132. :DRIVEB
  133. SET STORMCD=B:\
  134. GOTO QUIT
  135.  
  136. :DRIVEA
  137. SET STORMCD=A:\
  138. GOTO QUIT
  139.  
  140. :QUIT
  141. CLS
  142. PATH=C:\STORM2;%PATH%
  143. MENU
  144.  
  145.